00100	GO:	SETOM	FLAG
00200		TTCALL	0,1
00300		SUBI	1,50
00400		MOVEM	1,ONON
00500	LOOPY:	MOVE	7,[BYTE (2)2(16)1(18)TICK]
00600		CALL	7,[SIXBIT /SPCWGO/]
00700		SKIPE	FLAG
00750		JRST	.-1
00975		CALL	[SIXBIT /RESET/]
01000		CALL	1,[SIXBIT /EXIT/]
01100	TICK:	734200,,1
01200		734140,,ONON
01250		SETZM	FLAG
01700		CALLI	400024
01800	ONON:	OCT	15
01850	FLAG:	DEC	0
01900		END	GO